home *** CD-ROM | disk | FTP | other *** search
/ Asia X / Asia X.iso / mac / DATA / slideshow / 00002.ls < prev    next >
Encoding:
Text File  |  1995-08-28  |  437 b   |  25 lines
  1. on startMovie
  2.   startTimer()
  3.   songUpdate()
  4. end
  5.  
  6. on songUpdate
  7.   if not soundBusy(1) then
  8.     startNewsong()
  9.   end if
  10. end
  11.  
  12. on startNewsong
  13.   global gSong
  14.   if (gSong < 1) or (gSong > 5) then
  15.     set gSong to 5
  16.   end if
  17.   set songs to list("one.aif", "two.aif", "three.aif", "four.aif")
  18.   if gSong = 5 then
  19.     set randomSong to random(4)
  20.     puppetSound(getAt(songs, randomSong))
  21.   else
  22.     puppetSound(getAt(songs, gSong))
  23.   end if
  24. end
  25.